
    /*
    OUTPUT TO c:\bbb.txt .
    */
    
FOR EACH pts_det WHERE pts_par <> "" WITH STREAM-IO WIDTH 120 :
    IF ( NOT CAN-FIND(FIRST ps_mstr WHERE ps_par = pts_par AND ps_comp = pts_part) ) 
        AND ( NOT CAN-FIND(FIRST ps_mstr WHERE ps_par = pts_par AND ps_comp = pts_sub_part) ) THEN
        DELETE pts_det.
END.
